home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / A+ Disk Magazine Volume 1, No. 1 (1984)(Ziff-Davis).zip / A+ Disk Magazine Volume 1, No. 1 (1984)(Ziff-Davis).do / ERR.DEMO.bas < prev    next >
BASIC Source File  |  1996-12-24  |  429b  |  18 lines
  1. 10  ONERR  GOTO 250
  2. 90  FOR I = 1 TO 10: PRINT I: NEXT J
  3. 100 A$ =  MID$ (1,2,B$)
  4. 110  RETURN 
  5. 120  READ A,B$
  6. 130  POKE 0,379
  7. 140  PRINT 10 ^99/.1
  8. 150  LOMEM: 4095: HIMEM: 4096:A$ = "NO ROOM"
  9. 160  HIMEM: 32768: GOTO 17
  10. 170  PRINT A%(89)
  11. 180  DIM A%(19): DIM A%(19,1)
  12. 190  PRINT 45/0
  13. 200 A$ = 123
  14. 210  FOR I = 1 TO 20:A$ = A$ +"ABCDEFGHIJKLMNOP": NEXT I
  15. 220 A =  FN X(1) *2
  16. 230  PRINT  CHR$(4)"RENAMEHELLO"
  17. 240  STOP 
  18. 250  CALL 768